home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1016_Custom < prev    next >
Encoding:
Text File  |  1992-04-08  |  432 b   |  23 lines
  1. %case window field%
  2.     %HandleName%:%        %ControlHandle;
  3. %case create%
  4.     %HandleName% := GetNewControl (%cntlID%, newWindow);
  5.     %Enable?%
  6. %case itemNr%
  7.     %DefineItem%
  8. %case dialog field%
  9.     %fieldname%:%        %longint;
  10.     %Enable?%
  11.     %haveField%
  12. %case init field%
  13.     %fieldname% := 0; 
  14.     %Enable?%
  15. %case set%
  16.     SetCtlChoice (%Itemname%, %Fieldname%);
  17. %case enable%
  18.     %Enable?%
  19. %case hit%
  20.     %itemname%: begin
  21.             { DoCustom (itemNr, %fieldname%); }
  22.         end;
  23.